home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
KEYBOARD.SWG
/
0091_Keyboard Stuffer.pas
< prev
Wrap
Pascal/Delphi Source File
|
1995-03-03
|
529b
|
35 lines
Program StuffKeyboardBuffer;
Uses Crt,Dos;
Var
Name : String;
Procedure Stuffit(DChar:Char);
Begin
asm
mov ah,05h
mov ch,1
mov cl, DChar
int 16h
end;
end;
Procedure StuffKeyboard(D : String);
Var
l : Integer;
Begin
for l:=1 to length(d) do
StuffIt(D[l]);
End;
Begin
Clrscr;
Write('Enter your name : ');
StuffKeyboard('Robbie Flynn');
Readln(Name);
Writeln('Your name is : ',Name);
End.